home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2003 November / PCWK1103B.iso / DesignCAD 3D Max PLUS trial 30 / DATA1.CAB / Example_Files / Sample_Macros / Delete Layer Contents.d3m < prev    next >
Encoding:
Text File  |  2003-09-29  |  417 b   |  20 lines
  1. ' This macro Deletes all the objects in Layer 4 
  2. '
  3.     for j = 1 to sys(9) 
  4.     getattr j, type, select, laynum, group, red, green, blue
  5.     if laynum = 2 then 
  6.     select = 1
  7.     putattr j, type, select, laynum, group, red, green, blue
  8.     endif
  9.     next
  10. ' Always refresh the screen to see newly selected items change to 
  11. ' the selection color
  12.     >Regenerate
  13.     {
  14.     }
  15. ' Deletes all selected items
  16.     >SelectDelete
  17.     {
  18.     }
  19.     end
  20.